home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / amigancp_20 / install-amigancp < prev    next >
Text File  |  1999-05-17  |  6KB  |  260 lines
  1. ; 
  2. ; Installer-Script for AmigaNCP
  3. ;
  4. ; $VER: AmigaNCP-Install 1.3 (25.04.99)
  5. ;
  6.  
  7. ;
  8. ; Strings
  9. ; 
  10.  
  11. (set #startup-msg
  12. (cat    "\nWelcome to AmigaNCP Release 2.0\n===============================\n\n"
  13.         "© 1993-99 Oliver Wagner\n<owagner@vapor.com>\nAll Rights Reserved\n\n"
  14.         "Internet support:\n"
  15.         "http://www.vapor.com/\n"
  16.         "ftp: ftp.vapor.com, /pub/amigancp/"
  17. ))
  18.  
  19. (set #install-msg
  20. (cat    "Installing AmigaNCP Release 2.0\n\n"
  21.         "Where do you want AmigaNCP be installed?\nA drawer named"
  22.         "'AmigaNCP' will be automatically created."
  23. ))
  24.  
  25. (set #copylib-msg "Installing amigancp.library")
  26. (set #copylib-where "Please select a directory for \"amigancp.library\".")
  27. (set #copycat-msg "Installing catalogs")
  28. (set #copycat-where "Please select a directory for the language catalogs.")
  29. (set #copyserv-msg "Installing NCP Services")
  30. (set #copydoc-msg "Installing Docs")
  31. (set #copytools-msg "Installing Tools")
  32. (set #copyreg-msg "Installing Registration Utility")
  33. (set #copyicons-msg "Installing Default Icon Tree")
  34. (set #copysub-msg "Installing Submission Material")
  35.  
  36. (set #wantdev-msg 
  37. (cat    "Do you want to install the Developer\n"
  38.         "Documentation and associated support files?\n\n"
  39.         "These files are needed only when you want\n"
  40.         "to develop applications using \"amigancp.library\"\n"
  41.         "or want to do a catalog translation to another\n"
  42.         "language.\n"
  43. ))
  44. (set #copydev-msg "Copying Developer files")
  45. (set #whats "What Psion computer do you own?\n\nThis choice will determine the baud rate used\nto access the serial port")
  46. (set #need20 "AmigaNCP requires OS 2.04 or better!" )
  47.  
  48. (set #setpatchold "WARNING!\n========\nYour SetPatch Version %ld.%ld is TOO OLD!\n\nYou MUST at least have version 40.16 installed\nfor AmigaNCP to work properly, otherwise you\nwill experience crashes and memory losses!\n\nThe current version of SetPatch is included on the AmigaNCP registration disk or available from the Vapor support sites.")
  49.  
  50. ;
  51. ; Determine if running on an 68020++
  52. ;
  53. (procedure checkv20
  54.     (if (>= (database "cpu") 68020 )
  55.         (set v20-flag 1)
  56.     )
  57. )
  58.  
  59. ;
  60. ; Check for SetPatch 40.16 or higher
  61. ;
  62.  
  63. (procedure verifysetpatch
  64. (
  65. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  66. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  67. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  68.  
  69.     (set vernum (getversion "C:SetPatch"))
  70.     (set ver (/ vernum 65536 ) )
  71.     (set rev (- vernum (* ver 65536 ) ) )
  72.     (set setpatchver (cat ver "." rev))
  73.     (set current_setpatch "40.16")
  74.     (if (< setpatchver current_setpatch) 
  75.         (message (#setpatchold ver rev ) )
  76.         (set setpatchok 1)
  77.     )
  78. ))
  79. ;
  80. ;
  81. ; GO!
  82. ;
  83. ;
  84. (set vernum (getversion "LIBS:version.library"))
  85. (set ver (/ vernum 65536 ) )
  86. (set rev (- vernum (* ver 65536 ) ) )
  87.  
  88. (if (< ver 37 )
  89. (
  90.     (abort #need20)
  91. ))
  92. (set olduserlevel (user 1))
  93. (message #startup-msg)
  94. (user olduserlevel)
  95. (welcome)
  96. (set default-dest
  97.     (askdir
  98.         (prompt #install-msg)
  99.         (help @askdir-help)
  100.         (default @default-dest)
  101.     )
  102. )
  103. (complete 1)
  104. (set @default-dest
  105.     (tackon default-dest "AmigaNCP")
  106. )
  107. (complete 2)
  108. (set olduserlevel (user 1))
  109. (verifysetpatch)
  110. (user olduserlevel)
  111. (complete 3)
  112. (makedir @default-dest (infos))
  113. (makedir (tackon @default-dest "Docs" ) (infos))
  114. (makedir (tackon @default-dest "Tools" ) (infos))
  115. (makedir (tackon @default-dest "Submissions" ) (infos))
  116. (makedir (tackon @default-dest "Registration" ) (infos))
  117. (makedir (tackon @default-dest "Icons" ))
  118. (complete 2)
  119. ;
  120. ; Copy lib
  121. ;
  122. (set #libname "libs/amigancp.library")
  123. (checkv20)
  124. (if v20-flag
  125. (
  126.     (set #libname "libs/amigancp.library.020")
  127. ))
  128. (copyfiles
  129.     (help @copyfiles-help)
  130.     (prompt #copylib-msg)
  131.     (confirm)
  132.     (source #libname)
  133.     (newname "amigancp.library")
  134.     (dest
  135.         (askdir
  136.             (prompt #copylib-where)
  137.             (help @askdir-help)
  138.             (default "LIBS:")
  139.         )
  140.     )
  141. )
  142. (complete 10)
  143. (if (> ver 37 )
  144. (
  145.     (copyfiles
  146.         (source "Catalogs")
  147.         (prompt #copycat-msg)
  148.         (help @copyfiles-help)
  149.         (dest "LOCALE:Catalogs")
  150.         (confirm)
  151.         (all)
  152.     )
  153. ))
  154. (complete 20)
  155. (copyfiles
  156.     (source "")
  157.     (pattern "AmigaNCP#?")
  158.     (prompt #copyserv-msg)
  159.     (help @copyfiles-help)
  160.     (confirm)
  161.     (infos)
  162.     (dest @default-dest)
  163. )
  164. (complete 34)
  165. (copyfiles
  166.     (source "Icons")
  167.     (prompt #copyicons-msg)
  168.     (help @copyfiles-help)
  169.     (dest (tackon @default-dest "Icons" ) )
  170.     (all)
  171.     (infos)
  172. )
  173. (complete 36)
  174. (copyfiles
  175.     (source "Submissions")
  176.     (prompt #copysub-msg)
  177.     (help @copyfiles-help)
  178.     (dest (tackon @default-dest "Submissions" ) )
  179.     (all)
  180.     (infos)
  181. )
  182. (complete 38)
  183. (delete (tackon @default-dest "Icons.info" ))
  184. (complete 39)
  185. (foreach "" "AmigaNCP#?"
  186.     (tooltype (
  187.         (dest (tackon @default-dest @each-name ) )
  188.         (noposition)
  189.     )
  190. ))
  191. (complete 40)
  192. (copyfiles
  193.     (source "Docs")
  194.     (prompt #copydoc-msg)
  195.     (help @copyfiles-help)
  196.     (confirm)
  197.     (infos)
  198.     (all)
  199.     (dest (tackon @default-dest "Docs" ) )
  200. )
  201. (complete 60)
  202. (copyfiles
  203.     (source "Tools")
  204.     (prompt #copytools-msg)
  205.     (help @copyfiles-help)
  206.     (confirm)
  207.     (infos)
  208.     (all)
  209.     (dest (tackon @default-dest "Tools" ) )
  210. )
  211. (complete 70)
  212. (copyfiles
  213.     (source "Registration")
  214.     (prompt #copyreg-msg)
  215.     (help @copyfiles-help)
  216.     (confirm)
  217.     (infos)
  218.     (all)
  219.     (dest (tackon @default-dest "Registration" ) )
  220. )
  221. (complete 78)
  222. (copyfiles
  223.     (help @copyfiles-help)
  224.     (prompt #copylib-msg)
  225.     (source "Registration/vapor_registration.library")
  226.     (dest "LIBS:")
  227. )
  228. (complete 79)
  229. (copyfiles
  230.     (help @copyfiles-help)
  231.     (prompt #copylib-msg)
  232.     (source "Libs/vapor_toolkit.library")
  233.     (dest "LIBS:")
  234. )
  235. (complete 80)
  236. (if (askbool
  237.         (prompt #wantdev-msg)
  238.         (help #wantdev-msg)
  239.         (default 1)
  240.     )
  241. (
  242.     (set devdir (tackon @default-dest "Developer"))
  243.     (makedir devdir (infos))
  244.     (copyfiles
  245.         (source "Developer")
  246.         (prompt #copydev-msg)
  247.         (help @copyfiles-help)
  248.         (dest devdir)
  249.         (confirm)
  250.         (infos)
  251.         (all)
  252.     )
  253. ))
  254. (complete 90)
  255. (if ( = (exists "ENV:AmigaNCP.config") 0 )
  256. (
  257.     (run (tackon @default-dest "AmigaNCP-Prefs" ) )
  258. ))
  259. (complete 100)
  260.